home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / jan94 / cjfig08b.gif

< prev

next >

Graphics Interchange Format  |  1996-07-02  |  30KB  |  496x377  |  4-bit (15 colors)

Labels: text | screenshot | display | software | computer | number
OCR: TEST :: #Button5#:pushButton* method pushButton(var eventInfo Event) var nyQuery String tc TCursor endVar queryTables["DiveCust.db"] = "DiveCust.db" if not m_MakeQryStruct ("Query.db", 1, 1) then msgStop("Problem", "Cannot create query.db") endIf if not tc.open("Query.db") then msgStop("Problem", "Cannot open Query.db") return else tc.edit() tc.locate("Field name", "NAME") tc."Row 1" = "Check" tc.locate("Field name","CITY") tc. "Row 1" > "Check" tc.endEdit() endIf n_BuildQry("Query.db",":PRIV : Answer .db", nyQuery, 1,1) if not executeQBEString (myQuery) then error Show( ) endIf endmethod Fdi Line: 2 Col: 1

---